home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / UrbCedWWW.lha / urbcedwww / rexx / Insert.ucwx < prev    next >
Encoding:
Text File  |  1998-09-30  |  1.1 KB  |  39 lines
  1. /**************************************************************************/
  2. /*                               Insert.ucx                               */
  3. /*                                                                        */
  4. /*                    Copyright ©1998 by Dick Whiting                     */
  5. /*                                                                        */
  6. /*------------------------------------------------------------------------*/
  7. /*      Used with UrbCedWWW for inserting text into an HTML file.         */
  8. /*      See the UrbCedWWW Readme for a more complete description.         */
  9. /**************************************************************************/
  10. /*
  11. $VER: 1.0 Copyright ©1998 by Dick Whiting
  12. */
  13.  
  14. parse arg val
  15. val=strip(val)
  16.  
  17. if left(val,1)='"' & right(val,1)='"' then do
  18.    val=substr(val,2,length(val)-2)
  19. end
  20. else do
  21.    if left(val,1)="'" & right(val,1)="'" then do
  22.       val=substr(val,2,length(val)-2)
  23.    end
  24. end
  25.  
  26. Address CYGNUSED
  27. options results
  28.  
  29. 'STATUS INSERTMODE'
  30. ison=result
  31. if ~ison then 'INSERT MODE'
  32.  
  33. 'CEDTOFRONT'
  34.  
  35. 'TEXT' val
  36.  
  37. exit
  38.  
  39.